10 DV=PEEK(186):IFDV<8THENDV=8
20 DIMM$(12):GOSUB70:GOSUB1000:POKE214,24:POKE211,13:SYS58732
25 PRINT"[158][146][204] [207][160][193] [196] [201][160][206] [199]"TAB(20-LEN(A$)/2)A$
30 PRINT"[144]":PRINT""
40 PRINT "LOAD";CHR$(34);F$;CHR$(34)","DV
50 PRINT"RUN"
60 POKE631,13:POKE632,13:POKE198,2:END
70 PRINT"[147]":POKE53280,0:POKE53281,0:IFFTHENRETURN
80 POKE214,10:PRINT"[145]";
85 PRINT"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
90 FORI=1TO12:PRINT"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
100 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
110 POKE214,12:PRINT"[145]"TAB(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 FORI=1TO7:PRINTTAB(2)"[155]                                    [146][223]":NEXT
130 PRINTTAB(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
140 PRINT"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
150 POKE214,14:PRINT"[145][155]";
160 FORI=1TO5:READA$:GOSUB170:NEXT:GOTO180
170 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
180 F$="LETTERMEISTER":RETURN
190 DATA"[204] [197] [212] [212][160][197] [210] [205] [197] [201][160][211] [212] [197] [210]","BY [202]EFFREY [204]. [202]ONES
200 [131]"(null)1.0 (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #91","(null)UBSCRIPTIONS 1-800-831-2694"
210 [131]"LENOPYRIGHT (LEN) 1991 (null)OFTDISK"
1000 [129]I[178]1[164]12:[135]M$(I):[130]
1070 [143] **** GET TIME ****
1100 [129]I[178]8[164]16:T$[178]"":[160]15:[159]15,I,15:[160]15:[139]ST[167]1140
1110 [159]15,I,15:[152]15,"T-RA":[132]15,A$,B$:[139][197](A$)[167]1140
1115 [152]15,"T-RA"
1120 [161]#15,A$:[139]A$[179][177][199](13)[167]T$[178]T$[170]A$:[137]1120
1130 [139][197](T$)[178]0[167]I[178]16:[137]1140
1140 [130]
1145 [139][197](T$)[176]T$[178]""[167]1200
1150 DA$[178][200](T$,13):DA$[178][202](DA$,6)
1160 TI$[178][202](T$,15,2)[170][202](T$,18,2)[170][202](T$,21,2)
1170 M$[178]M$([197]([202](DA$,1,2))):D$[178][196]([197]([202](DA$,4,2)))
1180 YE[178][197]([202](DA$,7,2)):YE$[178]"19":[139]YE[179]91[167]YE$[178]"20"
1190 YE$[178]YE$[170][202](DA$,7,2):A$[178]M$[170]D$[170]", "[170]YE$[170][199](0)
1195 [139][194](653)[179][177]4[167][129]I[178]1[164][195](A$):[151]65151[170]I,[198]([202](A$,I,1)):[130]:[142]
1200 [153]"CONT(null)ODAY'S STR$ATE? PRINT";:LI[178]38[171][194](211):[141]50000:A$[178]W$
1210 A$[178]A$[170][199](0):[151]781,[194](214):[158]59903:[137]1195
2000 [131]"MID$ANUARY","ASCEBRUARY","(null)ARCH","ATNPRIL","(null)AY","MID$UNE","MID$ULY","ATNUGUST"
2010 [131]"(null)EPTEMBER","(null)CTOBER","(null)OVEMBER","STR$ECEMBER"
50000 W$[178]"":T[178]0:LW[178]0:[139]LI[178]0[167]LI[178]35
50010 [161]A$:AS[178][198](A$[170][199](0)):[139]TI[177]15[167][141]50090
50020 [139](A$[179]" "[176]A$[177]"Z")[175](A$[179]"ATN"[176]A$[177]"(null)")[175]AS[179][177]13[175]AS[179][177]20[167]50010
50030 LW[178][195](W$):[139]AS[178]13[167]T[178][171]1:[141]50090:[142]
50040 [139]LW[178]LI[167][139]AS[179][177]20[175]AS[179][177]13[167]50010
50050 [139]AS[178]20[167][139]LW[178]0[167]50010
50060 [139]AS[178]20[167]W$[178][200](W$,[195](W$)[171]1):T[178]0:[141]50090:[141]50090:[153]"WAITCMD CMD";:[137]50010
50070 W$[178]W$[170]A$:LW[178][195](W$):[151]212,0:[153]"WAIT"A$;:[141]50090
50080 [137]50010
50090 T[178][168]T:[151]199,[171]T:[153]" CMD";:TI$[178]"000000":[142]